home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / misc / Gfx4PCQ.lha / WindowLib / Examples / Circles / Circles.p < prev    next >
Encoding:
Text File  |  1997-07-19  |  908 b   |  53 lines
  1. PROGRAM Circles;
  2. { A tiny demonstration program for THOR's windowlib.
  3.   © 1997 THOR Software}
  4.  
  5. {$I "Include:utils/windowlib.i"}
  6. {$I "Include:utils/random.i"}
  7.     
  8.     
  9. CONST
  10.     pi        =    3.14159326;
  11.     radius        =    4;
  12.     size        =    8;
  13.     dist        =    (1+1.1415)*radius;
  14.     
  15.     
  16. VAR
  17.     window        :    WindowPtr;
  18.     x,y        :    INTEGER;
  19.     i,j        :    INTEGER;
  20.     
  21.     
  22. BEGIN
  23.  
  24.     InitGraphics;    { Setup gfx system }
  25.     
  26.     { Open a window on the WB screen}
  27.     window:=OpenScreenWindow(NIL,0,0,640,200,2+4+8,"Circles");
  28.     
  29.     IF window<>NIL THEN BEGIN
  30.         Color(window,1);    { Choose pen }
  31.  
  32.         x:=0;
  33.         y:=0;
  34.         
  35.         FOR i:=0 TO 19 DO BEGIN
  36.             IF ODD(i) THEN
  37.                 x:=0
  38.             ELSE    x:=dist;
  39.             
  40.             FOR j:=0 TO 64 DO BEGIN
  41.                 { Draw ellipse }
  42.                 Ellipse(window,x,y,radius,radius);
  43.                 x:=x+radius+dist
  44.             END;
  45.             y:=y+radius+dist
  46.         END;
  47.         
  48.         WaitForClose(window);    { Wait until user closes the window }
  49.         CloseAWindow(window);    { Close it }
  50.     END;
  51.     
  52.     ExitGraphics;    { Shut down graphics system }
  53. END.